home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_102_App < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.2 KB  |  60 lines
  1. { %filename% -- application class }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit U%appname%;
  5. Interface
  6.  
  7. Uses
  8. %if lang = Think%
  9.         SysEqu, Traps, ULoMem,             {}
  10.         UMacAppUtilities, UPatch,         {}
  11.         UObject, UList, UViewCoords,     {}
  12.         UMemory, UFailure, UMenuSetup,     {}
  13.         UAssociation, PrintTraps,        {}
  14.         UMacApp,                         {}
  15.         UGridView, UTEView, UDialog,    {}
  16.         UPrinting,                         {}
  17.         %for each dialog gen uses%
  18.         U%appname%Doc,                    {}
  19.         UAMLibraryM,                    {}
  20.         ResourceDefs;
  21. %else%
  22.         UMacApp, 
  23.         UGridView, 
  24.         UTEView, 
  25.         UDialog,
  26.         %for each dialog gen uses%
  27.         U%appname%Doc,
  28.         ResourceDefs;
  29. %endif%
  30.  
  31. Type
  32.     T%appname%App    = Object (TApplication)
  33.         %for each dialog gen instanceModeless%
  34.  
  35.         Procedure I%appname%App;
  36.         Function  DoMakeDocument (itsCmdNumber:    CmdNumber): TDocument;  Override;
  37.         Procedure DoSetupMenus;                                         Override;
  38.         Function  DoMenuCommand     (aCmdNumber:    CmdNumber): TCommand;   Override;
  39.         %for each menu gen doItems.decl%
  40.  
  41. {$IFC qInspector}
  42.         Procedure Fields    (
  43.                 Procedure DoToField    (fieldName:        Str255;
  44.                                      fieldAddr:        Ptr;
  45.                                      fieldType:        integer)
  46.                             ); Override;
  47. {$ENDC}
  48.     end; {T%appname%App}
  49.  
  50. {----------}
  51. Implementation
  52.  
  53. %If lang = MPW%
  54.     {$I U%AppName%.inc.p}
  55. %else%
  56.     %App.inc%
  57. %endif%
  58.  
  59. End. {%filename%}
  60.